home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / tiptrix / listing5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-18  |  880 b   |  41 lines
  1. type
  2.   TMyUpgrader = class(TxUpgrader)
  3.   public
  4.     function Upgrade(aVersion: Integer): Integer; override;
  5.   end;
  6.  
  7. function TMyUpgrader.Upgrade(aVersion: Integer): Integer;
  8.  
  9.   procedure Log(const aVersion: String);
  10.   var
  11.     fLog : TextFile;
  12.   begin
  13.     AssignFile(fLog,ChangeFileExt(ParamStr(0),'.log'));
  14.     try
  15.       try
  16.         Append(fLog);
  17.       except
  18.         Rewrite(fLog);
  19.       end;
  20.       writeln(fLog,'Upgrade to Version ',aVersion,'  at ',DateTimeToStr(Now));
  21.     finally
  22.       CloseFile(fLog);
  23.     end;
  24.   end;
  25.  
  26. begin
  27.   Result := inherited Upgrade(aVersion);
  28.   if aVersion < 110 then
  29.   begin
  30.     { Here we do upgrade to Version 1.10 }
  31.     Log('1.10');
  32.     Result := 110;
  33.   end else if aVersion < 120 then
  34.   begin
  35.     { Here we do upgrade to Version 1.20 }
  36.     Log('1.20');
  37.     Result := 120;
  38.   end else
  39.     Log('<none>');
  40. end;
  41.